IP ：<%=rs("ip")%>
<%if session("admin")<>"" then%>
[屏蔽]
<%end if%>
Time ：<%=rs("time")%>
<%nr=rs("body")'输出代码转换
nr=server.htmlencode(trim(nr))
nr=replace(nr,chr(32)," ")
nr=replace(nr,chr(13)&chr(10)," ")
Function img(Str)
do while instr(str,"[IMG]")<>0 and instr(str,"[/IMG]")<>0 and instr(str,"[IMG]")")
loop
img=str
End Function
nr= img(nr)
Function url(Str)
do while instr(str,"[URL]")<>0 and instr(str,"[/URL]")<>0 and instr(str,"[URL]")" & strurl & ""
str=replace(str,strold,strnew)
loop
url=str
End Function
nr= url(nr)
Function mp(Str)
do while instr(str,"[MP]")<>0 and instr(str,"[/MP]")<>0 and instr(str,"[MP]")")
loop
mp=str
End Function
nr= mp(nr)
Function rm(Str)
do while instr(str,"[RM=")<>0 and instr(str,",")<>0 and instr(str,"]")<>0 and instr(str,"[/RM]")<>0 and instr(str,"[RM=")
")
str=replace(str,"]",">0 and instr(str,"]")<>0 and instr(str,"[/FLASH]")<>0 and instr(str,"[FLASH=")")
str=replace(str,"]",">
<%rs.close
sql="SELECT * from re where reid ="&id&" order by retime"
rs.open sql,conn,1,3
For x = 1 to rs.Pagesize
if x mod 2 then
tablebgcolor="#FBFBF0"
else
tablebgcolor=bgcolor
end if
If rs.eof then
Exit For
Else%>